home *** CD-ROM | disk | FTP | other *** search
/ Developer Helper 1: Phil & Dave's Excellent CD / Excellent CD HFS.raw / Moof / Goodies / HyperCard Goodies / HyperCard Dev. ToolKit / Serial & MacinTalk XCMDs / SpeechIntf.p < prev    next >
Text File  |  1986-07-23  |  2KB  |  53 lines
  1. {            Speechintf for Macintalk
  2.  
  3. AUTHOR
  4.       Pascal Interfaces for MPW modified by Mike Millen
  5.       Copyright 1983, 1984, 1985, 1986 Apple Computer Inc. All Rights Reserved
  6.  
  7. BUGS
  8.  
  9. -------------------------------------------------------------------------------}
  10. UNIT    SpeechIntf;
  11.  
  12. INTERFACE
  13.  
  14.     USES
  15.         {$U    HD:Interfaces.p:MemTypes.p    }    MemTypes;
  16.     
  17. CONST
  18.     noExcpsFiles = '';            {signals Reader to use only basic rules}
  19.     noReader = 'noReader';        {signals SpeechOn to NOT bring in Reader}
  20.     fullUnitT = -4000;            {error code for driver unit table full}
  21.     
  22. TYPE
  23.     SpeechErr = Integer;
  24.     SpeechRecord  = array [0..99] of byte;    {Driver parm block, used internally}
  25.     SpeechPointer = ^SpeechRecord;            {pointer to driver parm block}
  26.     SpeechHandle  = ^SpeechPointer;            {handle to driver parm block}
  27.     
  28.     Sex     = (Male, Female);
  29.     F0Mode     = (Natural, Robotic, NoChange);
  30.     Language= (English, French, Spanish, German, Italian);
  31.     VoiceRecord = RECORD
  32.         theSex:        Sex;
  33.         theLanguage:Language;
  34.         theRate:    Integer;
  35.         thePitch:    Integer;
  36.         theMode:    F0Mode;
  37.         theName:    Str255;
  38.         refCon:        Longint;
  39.                 END;
  40.     VoicePtr = ^VoiceRecord;
  41.     
  42. FUNCTION    SpeechOn (ExcpsFile:Str255; VAR theSpeech:SpeechHandle):SpeechErr;
  43. PROCEDURE    SpeechOff(theSpeech: SpeechHandle);
  44. PROCEDURE    SpeechRate(theSpeech: SpeechHandle; theRate:Integer);
  45. PROCEDURE    SpeechPitch(theSpeech: SpeechHandle; thePitch:integer; theMode:F0Mode);
  46. PROCEDURE    SpeechSex(theSpeech: SpeechHandle; theSex:Sex);
  47. FUNCTION    Reader(theSpeech: SpeechHandle; EnglishInput:Ptr;
  48.     InputLength: Longint; PhoneticOutput: Handle):SpeechErr;
  49. FUNCTION    MacinTalk(theSpeech: SpeechHandle; Phonemes: Handle):SpeechErr;
  50.  
  51.     
  52.  
  53. END. {of unit}